Simples [PortScanner]
Publicado por breek (última atualização em 02/03/2012)
[ Hits: 4.164 ]
É um script simples. Criado para iniciantes.
Não é nenhum [nmap] mas é bem legal e funcional.
Esta bem comentado. É claro que esta em [inglês], mas é para não perder o costume.
Usei o [Google Tradutor], caso haja alguma palavra errada é culpa é dele.
#!/usr/bin/perl #-------------------------------------------------------------------------------------------------------- # # @Author: breek # @Code: SimplePortScanner.pl # @Version: 0.1.0 # @Date: 22/02/2012 # #-------------------------------------------------------------------------------------------------------- #===============================================================# # É um script simples. Criado para iniciantes. # Não é nenhum [nmap] mas é bem legal e funcional. # # Esta bem comentado. É claro que esta em [inglês], mas # é para não perder o costume. Usei o [Google Tradutor], # caso haja alguma palavra errada é culpa é dele. # # Criado para ser modificado. Cada modificação mexa na versão. # NÃO ALTERE MEU NOME!! # NÃO ALTERE O NOME DO SCRIPT!! #===============================================================# use strict; use warnings; use IO::Socket; #-------------------------------------------------------------------------------------------------------- #__BEGIN_MAIN__ # # Name: Main # # Purpose: Initializes the script. # # Input: $Var_IP # $Var_BeginPort # $Var_EndPort # # Output: $Var_IP # $Var_Scanning # #----------------------------- #Global variables # my $Var_IP; # Recebe o [Endereço IP] - USUARIO my $Var_BeginPort; # Recebe a [Porta inicial] - USUARIO my $Var_EndPort; # Recebe a [Porta final] - USUARIO my $Var_Scanning; # Escanea as portas - SCRIPT my $Var_FindOpenPort; # Recebe as portas abertas - SCRIPT # # #----------------------------- system( "cls" ); # Recebe o [Endereço IP] # print "Enter the IP address: "; $Var_IP = <>; chomp $Var_IP; # Recebe a [Porta inicial] # print "Enter the starting port: "; $Var_BeginPort = <>; chomp $Var_BeginPort; # Recebe a [Porta final] # print "Enter the ending port: "; $Var_EndPort = <>; chomp $Var_EndPort; # Iniciando escaneamento # print "\n\nScanning IP [ $Var_IP ]. \n\n"; # Escaneando # for( $Var_Scanning = $Var_BeginPort; $Var_Scanning <= $Var_EndPort; $Var_Scanning++ ) { $Var_FindOpenPort = IO::Socket::INET->new( PeerAddr => $Var_IP, # Endereço IP PeerPort => "$Var_Scanning", # Numero da porta Proto => "TCP", # Protocolo ); # Porta aberta encontrada # if( $Var_FindOpenPort ) { print "[+] Port [$Var_Scanning] is open. \n"; } } # Finalizando script # print "\nScanning...DONE. \n"; exit; #__END_MAIN__ #--------------------------------------------------------------------------------------------------------
Importação de IPs do Whatsapp como Objeto do Zentyal
Instalação automatizada do Squid 2.5 STABLE14
Nenhum comentário foi encontrado.
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Quero saber sobre os melhores aplicativos de office para usar em 2024 ... (4)
Problemas com o PulseAudio no lubuntu (8)
Som e sistema de janelas não obedecem (1)
Toda vez que tento atualizar o clamav me deparo com erros ao atualizar... (1)